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MODULE OPCSOPCOMOLD 


ASE EESISICSIT IT ETT TTT TTT TTT Teer eric irri iti citi iii iii iitiiitiiiiit 


Vee AAAR AAA AEAAAAAAAAAAAAARERAAAAAAEAAAAAAA AAA AAA AAEREAAERAAAEEEE 


‘SOFTWARE ON EQUIPMENT WHI 


sea (BL 1ss32), 


COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION, ° MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE i. FURNISHED UNDER A LICENSE AND “T cfh A ag B. AND og a 
ONLY IN AC ANCE WITH THE TERMS OF SUCH ENS THE 


C Ft 
COPIES THEREOF a Th BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPOkA The NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO oF Unit 


: 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
H IS NOT SUPPLIED BY DIGITAL. 


'e¢ 

| FARELETVS 
OPCOM 

i ABSTRACT: 
This module contains the old format message handlers. 
These routines merely reformat the request into the 
new format, and call the correct handler to service 
the request. 

i Environment: 
VAX/VMS operating system. 

i Author: 


Steven T. Jeffreys 


i Creation date: 


March 10, 1981 


{| Revision history: 
V03-002 CWH3001 CW Hobbs 30-Jul-1983 


Various and sundry things to make OPCOM distributed 
across the cluster. 


9 
16-Sep-1984 01:34:19 AX-11 Bliss-32 V4.0-742 e 
1 ~3007 138% 93:35:13 OPCOM. SRCIOPCOMOLD .B 3251 — as 


le ' 
ie i v03-001 $1)3033 Steven T. Jeffreys 05-Oct-1982 
4 Make all operators permanent by default. 
006 i v02-002 $TJ0223 Steven T. Jeffreys 
006 ; Make all operators temporary by default. 
06S 0 
66 leo 


BEGIN Start of OPCOMOLD 


LIBRARY *SYSSLIBRARY:LIB.L32'; 
LIBRARY ‘L1B$:OPCOMLIB'; 


FORWARD ROUTINE 
Various message handlers for old format messages. 


BH SONOS P IO De We oN Dee 


a kk ad od od od td I I IQOOOOOOOOO 


| 
| 
17-Feb-1982 


OU 
+ 
' 
CNCL_HANDLER : NOVALUE, ' Cancel handler 
LOGI_HANDLER : NOVALUE, ! Init logfile message handler 
RPLY_HANDLER : NOVALUE, ' Reply handler 
0 RQST_HANDLER NOVALUE, ' Request handler 
1 SECU_HANDLER OVALUE, : secur ty handler 
; STS_AANDLER : NOVALUE, ' Status handler 
TERME _HANDLER : NOVALUE; ! Enable operator message handler 
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GLOBAL ROUTINE CNCL_HANDLER (BUFFER_DESC) : NOVALUE = 


This routine is the handler for all CNCL messages received by OPCOM. 
This message is in the old format, and must be converted to the new 
format before it can be processed. Once this is done, the new format 


message handler is called to process the reformatted request. 


Input: 
BUFFER_DESC : ine address of a queévere buffer descriptor that 
9 cribes the buffer containing the message. 
Implicit Input: 
None. 
Output: 
None. 


Implict output: 


Some accounting data will be updated 
to reflect the receipt of the message. 


Side effects: 
None. 


i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
; Routine value: 
i 
i- 


None. 
BEGIN ! Start of CNCL_HANDLER 
MAP 

BUF FER_DESC : Sref_bblock; 
EXTERNAL 


oooO DODODOO OD OM@@mace 
DONONP WY "ODS NAAKR WWI OSS NEAR oD Dee OO 


GLOBAL_STATUS : BITVECTOR; Global status flags 


EXTERNAL ROUTINE 
CANCEL_HANDLER : NOVALUE; 


New format msg handler 


AAA IORI PORONONUNUNUNUN 4 OOO 


wnr—o 


LOCAL 


PIPIPOPIMOPIPIPOPMINIMIPIMPINIAININ INI at at at at at rt nt nk tt st kk kk kk th tt tt 


eee Be Be Se Se Se Se Ge Se Ge Se Be Fe Ge Se Ge Ge Ge Se Se Ge Ge Se Ge Ge Ge Ge Se Se Se Se Ge Se Ge Ge Ge Ge Ge Ge Se Se Se Se SH Se SH Se Se Ss Se BH Se Se Seese 
ee em me me ek ee ed st ed ed = wd 

ne NU ODO MO AP Ue pofejelelolololo! woOwooowowovo 
ee ed ed ed ed dd dd wd wd wd wd 
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5 
$ OLD_MSG : $ref_bblock, ! Pointer to start of old message 
NEW _MSG 2 gref -bblock ' Pointer to start of new message 
8 REFORMAT _BUFFER : $bblock OPCSK_MAXREAD), ' Buffer to hold the reformatted message 
24 REFORMAT_DESC : $desc_block; ! Descriptor for the REFORMAT_BUFFER 
41 : 


] 
| 
'e¢ 
Functional description: 
| 
| 
| 


re te tSGIS 


<oO 
on 


3 tg ! Make sure the message is big enough. If n 
4 4 i cannot eee tety be a valid message, and oPcoM Mitt 
5 ¢ } simply ignore it. 
? 4 if -BUFFER_DESC CDSCS$W_LENGTH] LSS (OPCSK_COMHDRSIZ + 8) 
9 4 RETURN; 
i so 8 
§ Copy the commom header provided by SSNDOPR to the new buffer 
¢ CHSMOVE (OPCSK_COMHDRSIZ, .BUFFER_DESC CDSCSA_POINTER] , REFORMAT_BUFFER); 
5 ' 
; 5 Zero the remainder of the REFORMAT_BUFFER. 
3 ; CHSFILL (0, (OPCSK_MAXREAD = OPCSK_COMHDRSIZ), (REFORMAT SUFFER + OPC$K_COMHDRSIZ)); 
1 6 ! 
§ e : Move the old message fields into their corresponding places in the new message format. 
6 6D _MS sueren DESC EBSCSA tight + OPCSK _COMHDRSIZ; 
? EW_MS REF mal res FER + OPCS$K 
6 
6 
6 


G = 
N G= HORS 
NEW_MSG OPCS OPE} = oP “gat “iss, COPCSB its TYPE); 
G “TS 
G 
G 


| 
| 
| 
| 
| 
Ope a te ATINMA eh ns. CSBYTEOFFSET (OPC$B_MS_TARGET),0,24,0); 
OPCSL- “RasTiDS = .0LD MSG COPCSL_MS_RQSTIDJ; 
| 


' 
Create a descriptor for the reformatted message. 


REFORMAT_DESC ee ~LENGTHI 


REFORMAT DESC z 
DSC$B~ Lass] = 0 


REFORMAT DESC : 
REF ORMAT_DESC REFORMAT_BUF FER; 


' 
: Call the new-message handler to finish processing the message. 


gocee, comand? + OPCSK_HDR_SIZE; 


DONA WN 9 ODNAUE WN 0 CONAU EW O DONO 
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090909 0909 09 NINN NSN NNN SIOOO feat ale aval eal ales eal val eal eal aleal oe oF oP oP oe 
FRPP ES ES sae e UN SSSS3SF5. s a 
090009090900 INI SSI 
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0 

1 GLOBAL STATUS Coal sts KeOLp ppaaat -MSG] = TRUE; ! Mark this as an old format msg 
é CANCEL~HANDLER (REFORMAT D 

; GLOBAL “STATUS CoBLS+s. K "OD. FORMAT _MSG) = FALSE; 

5 1 END; ! End of CNCL_HANDLER 


-TITLE OPCSOPCOMOLD 
-IDENT \v04-000\ 


-EXTRN GLOBAL_STATUS, CANCEL_HANDLER 
-PSEC. SCODES,NOWRT,2 


007¢ 00000 ENTRY Mgt HANDLER, Save R2,R3,R4,R5,R6 : 0085 
5E FSF8 CE 3 002 MOVAB B(S ; 
56 04 AC 00 000 MOVL BUFFER “ESC RG > 0146 
2€ 66 81 0000B CMPW «(RO : 


sep-984 0:34:19 


i$ 


D.832;1 


8 ; 32 V4.0-742 
S COMOL 


each Liss- 
OPCOM.SRCJOP 


ete eee 6 86 Fe Fe Fe Fe Fe FR Fe Fe te te 


EF ORMAT_BUFFER+38 


BUFFER 
R 


RMAT 
22, 


6. °558 


as, a4 (R6) 


WC, (SP), # 


1 


LSS 
ove 
ove 
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(NEW_MSG) 


M 
MS 
S 
E 
ESC 
R, REFORMAT_DESC+4 


Afus 


L 

FFE 

(NE 

SG) 

OLD 

8 

FFE 

_ST 
CANCEL_HANDLER 
_STATUS 


Ou 2090 Yr - uw 


R6) 
TB 

4 e 
T 

§6) 
EFOR 
B 

A 
GLOBAL 


4 
6 
DM 
( 
. 2 
R 
FORMAT 
6, GLOB 
SP 
é, 


R 
4 
#1 
a 


MOVZBL #64 
pos 
BISB 


MOOWOW — On uu WOW? O 
wo tv t OOOO MO 


ww 
@.0o 
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00 


08 
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51 
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Routine Base: S$CODE$ + 0000 


86 bytes, 


3; Routine Size: 


i a 
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oP OMOLD 1b-3¢ 1984 01:34:1 AX-11 Bliss-32 V4.0-742 Pa 6 

vOe~00 1e788b-1882 9328534 OPCOM. SRCIOPCOMOLD.B32; 1 wee 

: 186] GLOBAL ROUTINE LOGI_HANDLER (BUFFER_DESC) : NOVALUE = | 
; 1 188} i+ | ; 
; 13) : ! Functional description: : 
: 198 191 1 This routine is the handler for all LOGI messages received by OPCOM. ; 
; 194 192 1! This message is in the old format, and must be converted to the new : 
; 195 1959 7! format before it can be processed. Once this is done, the new format : 
; 138 130 : message handler is called to process the reformatted request. ; 
: 198 196 1! Input: ; 
199 197i nee 
; 200 138 1! BUFFER_DESC : The address of a queduore buffer descriptor that : 
; 08 4+ : describes the buffer containing the message. > 
i 20 01 1! Implicit Input: | ; 
; 206 02 1! : 
; 205 $8 1! None. | 3 
3 08 06 1! 3 
; 20 0205 1 ! Output: 3 
; 208 0 88 1! 3 
; 209 0207 1! None. 3 
; 210 8 08 1! : 
: 1] ts ! Implict output: : 
: ig 9 161! Some accounting data will be updated ; 
; 1 0 \¢ : to reflect the receipt of the message. | : 
3 16 0514 | i Side effects: | ; 
3; @i 8 7s eo 3 
; 218 16 17 None. ; 
: 219 0217 1! 3 
; 220 8 18 1 ! Routine value: 3 
; 1 19 171! 3 
; ¢ 0220 1! None. 3 
. on aoe , 
; } 02 BEGIN ! Start of LOGI_HANDLER | 3 
; 5 2 MAP | : 
Bees Bod 
: 9 0227 BUF FER_DESC : $ref_bblock; ‘ 
; 231 0 5 EXTERNAL | 3 
3 § 0 GLOBAL_STATUS : BITVECTOR, ! Global status flags 3 
: 1 DEVICE _FAO : Sbblock; ! FAO control string : 
: 235 $$ EXTERNAL ROUTINE : 
: ¢ LOGFILE_HANDLER : NOVALUE; ! New format msg handleR : 
; 3s LOCAL | ; 
; 240 3 OLD_MSG : $ref_bblock, ! Pointer to start of old message : 
: 241 EW_MSG : Sref_bblock, ' Pointer to start of new message : 
3 *g 40 OUT" LENGTH : ‘ ! Length of formatted operator device name : 
; 24 41 ESC : geoec block ' Operator device name descriptor : 
3 6266 42 REFORMAT_BUFFER : $bblock OPCSK_MAXREAD], ! Buffer to hold the reformatted message 3 
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; ig rf REFORMAT_DESC : Sdesc_block; ! Descriptor for the REFORMAT_BUFFER 
: 26 45 2! 

; 24 4 ! Make sure the message is big enough. If not, it 

; rk 23 ' cannot qeseroty be : valid Sessese, and OPCOM will 

; ? $8 } simply ignore it. 

3 5 0 If BUFFER DESC CDSCSW_LENGTH] LSS (OPCSK_COMHDRSIZ + 13) 

: 254 RETURN; 

BoE 

; ; 5 Copy the commom header provided by SSNDOPR to the new buffer 

; $9 : CHSMOVE (OPCSK_COMHDRSIZ, .BUFFER_DESC COSCSA_POINTER] , REFORMAT_BUFFER); 

: 261 5 

: o¢ 0 rs ; Zero the remainder of the REFORMAT BUFFER. 

3 ee 0 6¢ CHSFILL (0, (OPCSK_MAXREAD = OPCSK_COMHDRSIZ), (REFORMAT_BUFFER + OPCSK_COMHDRSIZ)); 

; 64 2! 

: eF 8 65 Move the old message fields into their corresponding places in the new message format. 

; 269 0 & OLD_MSG = .BUFFER_DESC CDSCSA_POINTER] + OPCSK_COMHDRSIZ; 

H 0 8 68 NEW_MSG = REFORMAT BUFFER + OPCS$K_COMHDRSIZ; 

5 71 69 NEW_MSG COPCSB_ROSTCODE) = .OLD_MSG COPCS$B_MS_TYPE); ' Set request type 

: 2? 0270 2 NEW-MSG COPC$B-SCOPE) = OPCSK_SYSTEM; i Force SYSTEM request 

; i 9 4 IF jOLd_ASG COPCS$L_MS_RQSTID) EQL 

; rs 6 7 Sbblock CNEW_MSG COPCS$L_RO_OPTIONS], OPCS$V_INITLOG] = TRUE ! INITLOG function 

3 AA 0 e Sbblock CNEW_MSG COPCSL_RQ_OPTIONS], OPCS$V_CLOSELOG] = TRUE; !' CLOSELOG function 
; 279 é § i Build the operator device name from the ASCIC device string 

:; 280 0278 ! and the device unit number. Build the FAO OUTBUF descriptor 

; 4 0 to point to the correct spot within NEW_MSG to save a copy. 

; He 81 DEV_DESC [0,0,32,0] = 20; ! Allow for a large device name 
3 284 9 8¢ DEV-DESC COSC$A_POINTER] = .NEW_MSG + SBYTEOFFSET (OPCST_LOGFILE_OPR) + 1; 

; 85 28 SFAD (DEVICE_FAO, OUT_LENGTH, DEV_DESC yy nt COPCST_MS_ONAME J, -OLD_MSG COPCS$W_MS_OUNIT)); 
; 36 4 ¢ NEW_ASG CSBYTEOFFSET TOPCST_COGFICE_OPR),0,8,0) = .OUTILERGTH; 

r4 ' 

3 89 3 Create a descriptor for the reformatted message. 

: 291 9 2 REFORMAT_DESC [DSC$W_LENGTH] = OPCSK_COMHDRSIZ + OPCSK_HDR_SIZE + .OUT_LENGTH + 1; 

3 ; 90 REFORMAT _DESC [DSCSB_DTYPE = Q; 

: 91 REFORMAT _DESC LDSC$B_CLASS = 0; 

; 3 3 REFORMAT—DESC CDSCSA_POINTER] = REFORMAT_BUFFER; 

; % 2! 

: 3 95 : Call the new-message handler to finish processing the message. 

: 299 39 GLOBAL STATUS [GBLSTS_K_OLD_FORMAT_MSG) = TRUE; ! Mark this as an old format msg 

; 300 38 LOGFILE_HANDLER (REFORMAT DESC); 

; 301 GLOBAL_STATUS [GBLSTS_K_OCD_FORMAT_MSG) = FALSF; 
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a 

36 Ff a 06 6° 
re aS re ¥F Sooo 
O9DA —=sséB®F 00 6E $8 6 0016 
32. —soAE 0010 
50 04 A 26 gt OO1F 
5 32 A 3 0024 
6 60 90 00028 
01 A 01 90 00028 
04 AO OD 002F 
6 1 0032 

06 A2 1 88 000 

4 11 000 
$ A2 2 88 OO03A 

fa AD 14 00 000 

AD 1B A 3 004 

7E 08 A C 0004 
OA AO 9F 00048 
F8 AD 9F O004E 
0c AE 9F 00051 
0000G CF 9F 00054 
00000000G 00 05 FB Boer 
1A A2 6E 90 O0005F 
04 AE 6E 0041 SF At 9464 
06 AE Be 006A 
08 AE 0c ar 3 0060 
0000G CF 1 8 at} 

04 AE F 0007 
0000G CF 01 FB OOO7A 
0000G CF 10 8A 44 
04 00084 


; Routine Size: 133 bytes, Routine Base: $CODE$S + 0056 
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OPCSOPCOMOLD 
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! End of LOGI HANDLER 


«EXTRN 
«EXTRN 


-ENTRY 
AB 


DEVICE FAO, LOGFILE_HANDLER 
SYSSFAO 


=2580(50) Sb Save R2,R3,R4,R5,R6 


BUFFER speSC. Ro 


#38, ae 6. eosoo BUFFER 
#0, (SP), 


#38, 4(R6), OLD_M 

REFORMAT BOT rERTS8 NEW_MSG 
(OLD_MSGY, MSG) 

ra TN NEW ys 

(OLD_MSGY 


, 6(NEW_MSG) 


~o 
Zz: Mm 


D Write FAO 
#5, SYSSFA 
out -LENGTH 26(NEW_M 
LENG TH, NEFOGRAT _DESC 
Per omeat 


DESC+ 
REFORMAT Burren REFORMAT_DESC+4 
#16, GLOBAL_STATUS 
REF ORMA T DESC 
POCFTCE HANDLER 
ai, GLOBAL” STATUS 


22, REFORMAT_BUFFER+38 
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GLOBAL ROUTINE RPLY_HANDLER (BUFFER_DESC) : NOVALUE = 
tee 
} Functional description: 
This routine is the handler for all RPLY messages received by OPCOM. 
This message is in the old format, and must be converted to the new 


format before it can be processed. Once this is done, the new format 
message handler is called to process the reformatted request. 


BIR A Roe 


PRIPIPOPIPIPIPOPOPIPIPIPOPIPIPIPOPONIPYRAYD <8 9 tt tt tt 
° 


Input: 


BUFFER_DESC : The address of a pacers buffer descriptor that 
describes the buffer containing the message. 


20 te nrue2ed 


OWONAOUVEWN —“OOONOUS Ww 


Implicit Input: 
None. 
Output: 
None. 
Implict output: 


OQOCCCCCCCCOOCOCOCOO 


Some accounting data will be updated 
to reflect the receipt of the message. 


Side effects: 
None. 

Routine value: 
None. 


FUNZSsS 


vd 
uw 


AAA A NAN AA AANA AAI AAAI AAI 
Od ed td et ed = IO 
FUN" SO OONOUE UN "OO OONOUE WN O0@ 


WAIN nononononononononunyd 


WAN AAA AANA Ww 


BEGIN ! Start of RPLY_HANOLER 
MAP 


OOOCCCOOCOCOCOCOOOCOCOOCoCoCoOO 


BUF FER_DESC : Sref_bblock; 
EXTERNAL 


GLOBAL_STATUS : BITVECTOR, 
DEVICE_FAO : Sbblock; 


EXTERNAL ROUTINE 
REPLY_HANDLER : NOVALUE; 


obal status flags 


GL 
FAO control string 


New format msg handler 
LOCAL 


Length of old message 

Length of new message 

Pointer to start of old message 

Pointer to start of new message 

Length of formatted operator device name 


OLD_MSG_LEN : LONG, 
NEW_MSG_LEN : Long. 
OLD_MSG : $ref_bblock, 
: Sref_bblock, 
H WORD, 


PAAAMAAMAM 


OOD NO VEWN 2 O OBNOU EW OO 


Be Be Be Oe Be Se Se Ge Se Se Se Se Se Se Se Se Se Se Ge Se Fe Ge Se Se Ge Se Ge Ge Ge Se Ge Se Se Ge Se Se Se Ge Se Se Se Se Se Se HSH Ss Se Se Se Ge Be Se Se Se ee ee 


APU OOo NOME OOO 
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NEW"MSG 
OUT"LENGTH 


-742 Pe 
$32, _ (4) 
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18-308- 1382 93:35 : 13 OPCOM.SR RCIOP OPCOMOLD.B32;1 ’ (4) | 
; DEV_DESC 2 $desc block ' Operator device name descriptor 3 
3 REFORMAT _BUFFER : $bblock OPCSK_MAXREAD], i Buffer to hold the reformatted message : 
; REFORMAT _DESC : S$desc_block; i Descriptor for the REFORMAT _BUFFER : 
> ! | : 
; i Make sure the message is big enough. If not, it : 
; ; cornet goss toly be a valid message, and OPCOM will ; 
: ; simply ignore it. . 
; 4 if jBUFFER_DESC CDSCSW_LENGTH] LSS (OPCSK_COMHDRSIZ + 13) ; 
: 37 RETURN; | : 
-: ioe Be) 
; NM Copy the commom header provided by SSNDOPR to the new buffer | ; 
; 18 CHSMOVE (OPCSK_COMHDRSIZ, .BUFFER_DESC COSCSA_POINTER] , REFORMAT_BUFFER); 3 
: 380 ; 
; 3 : Zero the remainder of the REFORMAT BUFFER. : 
; 88 9 CHSFILL (0, (OPCSK_MAXREAD = OPCSK_COMHDRSIZ), (REFORMAT_BUFFER + OPCSK_COMHDRSIZ)); 3 
: 385 : 
; ry) 0 Hf : Move the old message fields into their corresponding places in the new message format. : 
: 388 $ § op -MSG = .BUFFER DESC CDSCSA.POINTER] + OPCSK_COMHDRSIZ: ! Set pointer to request text : 
; +) 03 NEW_MSG = REFORMAT BUFFER + OPCSK_COMHDRSIZ; ' Set pointer = start of new message. F 
; 390 038 NEW_MSG COPCS$B_ROSTC dE =" OLD mS COPC$B_MS_TYPE); ! Set message reR" 3 
3 91 0388 NEW_MSG [LOPCSB_SCOPE C$K_S Sten cores to SYST reply bs 
3 4 8 89 NEW_MSG [COPCSL— “ROSTID] = .OLD_MSG OPCSL MS_RPLYIDJ; yeeey numbe : 
3 it, s NEW “MSG COPCSL_RO “ OPTIONS) = TOLD_MSG COPCSO_MmS_ STATUS] + OPCS _pACHEATY® ! "set reply status : 
: 395 6 35 i Build the operator device name from the ASCIC device string : 
; 3% 039 i and the device unit number. Build the FAO OUTBUF descriptor F 
3 144 0 My to point to the correct spot within NEW_MSG to save a copy. : 
; 399 0396 eV DESC tDsc tA 0,32 A Teh = Allow for a large device name ; 
; 400 039 DESC Sc$A TER a MSG + SBYTEOFFSET (OPCST_REPLY br) + 1; : 
; 401 Ba05 (DE eit POINTER DEV ~BESC. OLD_MSG COPCST_MS_ONAME), .OLD _MSG COPCSW_MS_OUNIT]); : 
> 40 99 W_MSG C$BY TEOPESE Tropes TREPLY0 0] = .OUT_LENGTH; ; 
3 40 00 OLD” MSG_LEN = OPCS. C COMHDRSTZ + $BY TreOF F Sef (OPCSL _MS OTEXT) ; 
; 406 01 2 NEW_MSG_ LEN = $BYTEOFFSET toPcst _REPLY_OPR) + .OUT-LENGT i; 3 
; $08 08 Check for the presence of some REPLY text. : 
: 408 OS 2 if .BUFFER_DESC CDSC$W_LENGTH] GTR .OLD_MSG_LEN : 
; 409 06 THEN 3 
3 oi? 0 BEGIN : 
: tig 09 i There is some reply text present. Copy it to ; 
3 ref + ; the new message fer. : 
: 615 \¢ CHSMOVE ( (. BUFFER pest COSC$W_LENGTH) - .0 ae LEN) ‘ : 
3 rey 1 OLD EOFFSET™ (OP cs S prex ), ° 0 Bu | Ps 
: rtf rtf .. NEW" mse tue MSG_LEN + 2,070,0 : 


$3 


— 


VMFUN OO OONOUFSWN—O” 


Pt ot tot at at ot at ata aaa 


Se 


: 


8F 


50 


= 
te 


VFN OOS AION EW" OOONO 


FRERRK 


oc 


NEW_MSG C.NEW_MSG LEN,0,16, 
NEW"MSG LEN = 


END? 
NEW MSG. LEN = .NEW_MSG_LEN + 2; 
' 
Create a descriptor for the 


REFORMAT_DESC [DSC$w LENGTH 
REFORMAT-DESC [DSCSB-DTYP 
REFORMAT —DESC ate CLASS 

REFORMAT-DESC CDSCSA~POINTERI 


.NEQ_MSG_CEN’* .NEW_ 


b-5e 10 
$ 
-5 


0] = 


reformatted message. 
NEW_MSG_LEN + OPCSK_COMHDRSI7; 


REF ORMAT_BUFFER; 


1en8ep-1986 $2:304 
me: FFER_DESC COSCSW 
MSG CUNEW_MSG_LEN,0,16 


$88," 


Ax-11 Ol igaete V4.0-742 
OPCOM. SRC JOPCOMOLD.832;1 


-OLD_MSG_LEN; 


Call the new-message handler to finish processing the message. 
GL 0BAL STATUS CGBLSTS_K -PLp + wes MSG] = TRUE; 


PLY RANDLER (REFORMAT_D 


SLOSAC. STATUS CGBLSTS_K “OLD. PORMAT _MSG] = FALSE; 


! Mark this as an old format msg 


! End of RPLY_HANDLER 


1 END; 
O1FC 00000 
5 FSEC CE 9€ 0000 
5 06 AC D 8800 
3 68 81 00008 
01 1€ 4's 
4 0001 
AE 046 88 26 28 00011 1$: 
00 6E 00 2C 00017 
32. AE 001 
52 04 As 26 C1 000 
56 32 ag 4 3 4 5 
66 62 90 000 
01 A6 01 90 0002C 
te ROR 
ee ee tee 
F AD 14 00 
FC 8=AD 1 A E 
7E 8 A C 
A A F 8 
eM Hae 
00006 CF 9F 00054 
000000006 00 5 FB 00058 
1A OA E F 
40 F OA ; 
6E 3 
» 8 PRBS 
8 S38 
58 68 3¢ 7%4 


REPLY _HANDLER 


RELY AHA HANDLER 

SP 
BurreR atti R8 
(RB), B51 


Save R2,R3,R4,R5,R6,R7,R8 


#38, a 6 eb eRDAT BUFFER 
#0, (SP), 22, REFORMAT_BUFFER+38 
#38, 4(R8), OLD_M 


REFORMAT BUFFERTSB- NEW_MSG 
(OLD nso), (NEW_MSG) 


SG 
SOLD “ASGY. 18(NEW_MSG) 
3OLbh MSG) 6(NEW_ASG) 


DEV 
OUT“LENGTH 
A ae FAO 


FAO 
f LENGTH 26(NEW_MSG) 
#647 OLD m§G _LE 

ENGTH Rew Qi'ss _LEN 


#27, N 
ig Neen astte OLD_MSG_LEN 
RB), R8 


IG 
~ 
w 


ooo OoCOOoCOoOO COO 
Bos Sues 
S22 SSeS 8 


H 10 
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19-808- 1382 9}: 0:49 OPCOM. SRCTOPCOMOLD .B3251 . (4) 
5 77 SUBL2  OLD_MSG_LEN, RB ; | 
02 A746 1A OA if 7A suekg RB “Je eot Aso) 2 (NEW _MSG_LEN) (NEW_MSG] + 0414) 
6746 SF 00081 PUSHAB (NEW _MSG_LEN) (NEW _MSG : 0616 | 
9E 5 0 MOVW RE + : 
6746 OF PUSHAB (NEW_MSG_LEN) CNEW_MSG) + 0417) 
5 A MOVZWL a@(SPT+, R : 
C ADDL2 RO, NEW_MSG_LEN : 
7 ¢ 2%: ADDL? #2. NEW"MSG”LEN + 0419 
04 AE 7 A 9 ADDWS #38, NEG_MSG LEN, REF ORMAT_DESC + 0424 
6 AE B4 0009 CLRW © REFORMAT—~DEST+ + 0425 
08 AE C AF : ROVAB REFORMAT-BUFFER, REFORMAT_DESC+4 + 0427 
00006 CF 1 OA 81SB GLOBAL_STATUS > 04 é 
04 AE 9F OOOA PUSHAB REFORMAT _D : 04 
00006 CF 01 FB 000A CALLS #1, REPLY_HANDLER ; 
00006 CF 10 BA OOAD BICB2 #16, GLOBAL_STATUS + 0434 
4 00082 RET > 0436 


3; Routine Size: 179 bytes, Routine Base: S$CODES + 00DB 


10 
1b-Sep-1986 01:54:19 yAR-IN Bliss 


wv 


Side effects: 


470 

471 None. 
47 

47 Routine value: 


None. 


ree. 7 GLOBAL ROUTINE RQST_HANDLER (BUFFER_DESC) : NOVALUE = 
te ate 
rr re } Functional description: 
44 4g i This routine is the handler for all RQST messages received by OPCOM. 
44 4 ; This message is in the old format, and must be converted to the new 
44 44 : format before it can be processed. Once this is done, the new format 
rc $2 message handler is called to process the reformatted request. 
é 1 és ; Input: 
ret tg i BUFFER_DESC : The address of a qeetwere buffer descriptor that 
$22 3} } describes the buffer containing the message. 
i . 
$2 ¢ Implicit Input: 
$38 5 } None. 
460 § i Output: 
461 5 : 
re 28 None. 
ree ¢ ; Implict output: 
4 6 i Some accounting data will be updated 
te? $8 : to reflect the receipt of the message. 
468 64 : 
65 
eF yi 
68 ‘ 
OO 
i 
le 


Length of old message 

Pointer to start of old message 
Pointer to start of new message 

Buffer to hold the reformatted message 
Descriptor for the REFORMAT _BUFFER 


OLD_MSG_LEN : LONG, 
OLD_MSG : $ref_bblock, 
EW_MSG : sref block 
FFER : $bblock COPCSK_MAXREAD), 
SC : $desc_block; 


0 
i #! 
47 7 
ore BEGIN ! Start of RQST_HANDLER 
4 6 MAP 
481 7 
rt 8 BUF FER_DESC : $Sref_bblock; 
& 0 EXTERNAL 
? 5 Hi GLOBAL_STATUS : BITVECTOR; ! Global status flags 
rt 58 EXTERNAL ROUTINE 
: : : REQUEST_HANDLER : NOVALUE; ! New format msg handler 
rt i LOCAL 
90 


Be Se Be Be Se Be Se Se Se Be Se Se Be Se Se Be Se Ge Ge Se Se Ge Ge Ge Ge Ge Se Ge Se Se Ge Se Se Se Se Se Se Se Ge Se Se Se oe Ge SESS Se Se Os Ss Oe SHS Se Se Oe we 
> 
io 
o 


RIP PIPIPIPIMOPIAPIMININPINYININIAPININIR) 9 nt nn at at a tt St St SS SS ot Ss 
» 
m 
nn 
a 
2 
~ 
nc 


es 
RRRRRRLRRLKRRLREKLKELLLSLLSREPRRRERERE 


ooo 


wnt 


, 
| 


Oo 
v 


10 
ope Spc OmOLD WB-Sem-1984 01:54:19 yayett BL iss-32 v4. 0-742. Page 14 


9 94 ! 
95 i Make sure the message is big enough. If not, i 
%6 i cannot possib bly bes valid Sessege,.” and OPCOM will 
2 simply ignore it. 
35 If ,BUFFER_DESC CDSC$W_LENGTH] LSS (OPCSK_COMHDRSIZ + 8) 


RETURN; 
' 


Copy the commom header provided by SSNDOPR to the new buffer 
CHSMOVE (OPCSK_COMHDRSIZ, .BUFFER_DESC COSCSA_POINTER] , REFORMAT_BUFFER); 


' 
: Zero the remainder of the REFORMAT_BUFFER. 


CHSFILL (0, (OPCSK_MAXREAD = OPCSK_COMHDRSIZ), (REFORMAT_BUFFER + OPCSK_COMHDRSIZ)); 


FUPVSUSVSUSOSUSVSUSUSIOSISIOS S™ 


MIP 2 2 
SSSLESRANS 


WN 9 OBNAUESWN "OC OONOUE WN 


$ 
: Move the old message fields into their corresponding places in the new message format. 
| 


ou D_MSG = peveres DESC EeScsA hyp tl + OPCSK _COMHDRSI7Z; 

NEW W_MSG = REFORMAT BUFFER * Opcex 
NEW_MSG COPC$B_ RROsT eC dE mSG” topes “As TYPE); Set sesyate code 
NEW_MSG COPC$B_SCOPE Pcik LO TSTEn; orce $¥5 EM request 
NEW “MSG OPCSL— _ATTNMA SK1 -OLD_MSG Ese recor se! (OPCSB MS TARGET) 0,24,0 

NEW" MSG COPCSL “RQSTID) = OL. MSG COPCSL_MS_RQSTID]; 
OLD “ASG LEN = ‘OP CSK. COMHDRS12~+ SBYIEOFESET™ fopcee “AS. TEXT); 


Copy the request text, if any, to the new message buffer. 
if, BUFFER DESC CDSC$W_LENGTH] GTR .OLD_MSG_LEN 


Www 


BEGIN 
NEW MSG COPCSW_REQUEST LENGTH) = .BUFFER_DESC CDOSC$W_LENGTH] - .OLD MSG_L 


Ly ah ah ah ah dh ab dh Ab dhedh Ah sh shedbudh sbodh Abedh sb sh sh ah ah sh sb ah ab db ah sh ah al 


Be Se Se Ge Be Se Be Se Ge Se Se ee Be Se Se Se Se ee Ge Fe Se Se Fe Ge Fe Se Ge Se Se Se Ge Ge Se ee SH Se Se Se Se Fe Se Se Se Se Se Se Ge Se Se Se Ge Se Ge Ge ee 
Se eee esl sh Ah Abb Ab Ah Ah dh Ab Ab Ab Ah ah Ah Ab db dh ah ah Ab ah ah ah Ab ah ah al al 


SOOCOCOOCOCOOOCOOCOCOOOOOOOOOOOO OOOO OOOoOoOOOo 
BELLE EP WA AIA PIP PIPOPINPININYD 2 2 OO OO OS SM OOOO 
NOW POD MOM PUM SO OOS NONE OO NOME WO De we wr 


$e al (.NEW_ASG COPCSW_REQUEST_LENGTH]> OLD_MSG COPCS$L_MS “TEXT, Rew “ase “topcst -REQUEST_TEXT]); 
: 

4 : Create a descriptor for the reformatted message. 

40 REFORMAT DESC COSCSW_ benert = OPCSK_COMHDRSIZ + OPCSK_HDR_SIZE + .NEW_MSG COPCS$W_REQUEST_LENGTH] + 2; 

41 REF ORAAT_DESC DSC$B_DTYP = Q; 

4 REFORMAT_DESC (DSC$B_ CLASS = 0; 

$? REFORMAT_DESC CDSCSA_POINTER) = REFORMAT_BUFFER; 

45 : 

r : Call the new-message handler to finish processing the message. 

48 GLOBAL STATUS CGBLSTS_K_OLD copaat MSG] = TRUE; ! Mark this as an old format msg 

49 REQUEST_HANDLER (REFORMAT D 

39 GLOBAL_STATUS CGBLSTS_K "OLD. FORMAT _MSG] = FALSE; 

52 END; ! End of RQST_HANDLER 
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-EXTRN REQUEST_HANDLER 


OOFC 0 ENTRY Rast HANDLER, Save R2,R3,R4,R5,R6,R7 3 0437 
f FSFB OCE C9 MOVAB -2568(SP), SP : 
04 AC D MOVL BUFFER Desc, R7 + 0499 
E 6? | B CMP (R7), 24 : 
08 A 04 87 ; 8 6 Rovcs #38, @4(R7), REFORMAT_BUFFER : 05 
O9DA BF 06 6E % 69 C 16 movecS #0, (SP), #6, rate REF ORMAT_BUFFER+38 : 9296 
50 04 A? of gi 1F ADDL3 #38, 4(R7), OLD msc ; 0516 
56 2€ Ar 4 MOV REFORMAT _BUFFERT38, NEW_MSG : 051 
66 028 MOVB (OLD_MSGY, (NEW_MSG) + 0518 
01 Ag 1 90 00028 MOVB #1, ~T(NEW.MSG) + 0519 
OA Ab 01 a0 1 0 EF O02F EXTZV #0, #24 TcOLp MSG), 10(NEW_MSG) : 05 0 
12 a6 06 =A : 00 MOVL 4(OLD_MSG), T8TNEW_MSG) + 0521 
51 . DO 000 MOVL #46, ODM LEN : 0522 
51 67 10 0 F 0035 CMP ZV #0. #16, (R73, OLD_MSG_LEN : 0526 
1A 6 67 7 a3 00045 SUBW LD MSG_LEN, (R7), 26(NEW_MSG) : 9529 
1c a6 08 Ad 1A A6 28 O004A MOVC 6(REW_MSG). 8(OLD_MSG), 28(NEW_MSG) : 0530 
6E 1A 0042 8F Al 00051 1$: ADDWS3 #66, 26(NEW.MSG), REFORMAT_DESC : 0536 
02 AE B4 00058 CLRW = REFORMAT_DESC+2 : 0537 
04 AE 0 AE ; 0058 MOVAB REFORMAT-BUFFER, REFORMAT_DESC+4 + 0539 
00006 CF 10 88 00060 BISB2 #16, GLOBAL_STATUS > 0544 
SE DD 00065 PUSHL SP > 0545 
00006 CF 01 FB 00067 CALLS #1, REQUEST_HANDLER : 
00006 CF 10 BA 0006C BICB2 #16, GLOBAL“STATUS + 0546 
04 00071 2$: RET + 0548 


; Routine Size: 114 bytes, Routine Base: SCODE$S + 018E 
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Functional description: 
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1 ~335-1 980 93:85:4 OPCOM. SRCSOPCOMOLD 832-1 
GLOBAL ROUTINE SECU_HANDLER (BUFFER_DESC) : NOVALUE = 


This routine is the pendter ter all SECURITY messages received by OPCOM. 


This message is in the o 
format before it can be processed. 


ormat, and must be converted to the new 
Once this is done, the new format 


message handler is called to process the reformatted request. 


Input: 


BUFFER_DESC : 


Implicit Input: 


None. 
Output: 


Implict output: 


describes the buf 


Some accounting data will be updated 
to reflect the receipt of the message. 


Side effects: 
None. 


Routine value: 


i 
i 
i 
i 
i 
i 
t 
i 
! 
i 
i 
i 
i 
i 
i 
i 
None. 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
None. 


BEGIN 
MAP 


BUF FER_DESC 


EXTERNAL 


GLOBAL _STATUS 


EXTERNAL ROUTINE 
SECURITY_HANDLER 


LOCAL 


OLD _NSG_LEN 


REFORMAT_BUFFER : 
REFORMAT DESC 


! Start 


: Sref_bblock; 


: BITVECTOR; 


: NOVALUE; 


: LONG, 
: $ref_bblock, 


04 Pi 
$bb Lick OPCSK_MAXREAD), 


: $desc_block; 


The address of a peotuere buffer descriptor that 
er containing the message. 


, 


of SECU_HANDLER 


Global status flags 


New format msg handler 


Length of old message 

Pointer to start of old message 
Pointer to start of new message 

Buffer to hold the reformatted message 
Descriptor for the REFORMAT_BUFFER 


" 10 
16-Sep-1984 01:34:19  VAX=11 Bliss-32 v4.07 Peco 1 
eagee=h BBs PF:kG:18 — HANeAN Shige ce Ae 505782, a 


RETURN; 


61 0 : 
61 ! Make sure the message is big enough. If n i 
61 ! cannot possib oly be a valid message, and oPcon will 
61 ; H simply ignore 
’ If, ,BUFFER_DESC COSCSW_LENGTH] LSS (OPCSK_COMHDRSIZ + 8) 
1 
1 
1 
1 


oo 
PAAAAAAAAO 


AFA $$ O ODNAUES WIN (“OOO NAOULS WN" OOONO 


} Copy the commom header provided by SSNDOPR to the new buffer 
CHSMOVE (OPCSK_COMHDRSIZ, .BUFFER_DESC COSCSA_POINTER] , REFORMAT_BUFFER); 


] 
Zero the remainder of the REFORMAT_BUFFER. 


CHSFILL (0, (OPCSK_MAXREAD = OPCSK_COMHDRSIZ), (REFORMAT_BUFFER + OPCS$K_COMHDRSIZ)); 
i 
Move the old message fields into their corresponding places in the new message format. 


ot D_MSG = gpyeees DESC EBSCSA igh ik + OPCSK -COMHDRS IZ; 
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34 NEW_MSG = MAT_BUFFER + OPC$K_C 
35 NEW_MSG athe hae * OLD mse. COPCSB is TYPE); § ze t mossege code 
36 3 NEW_MSG opcse_ SCORE) ey SYSTEM; i Force SYSTEM request 
37 3 ta OPCSL_ATTNMA OLD MSG. Sgt ds (OPC$B_ MS_ TARGET), 0,24,0); 
38 3 NEW OPCSL— RaSTIDI = .OLD_MSG COPCSL 
273 3 OLD “MSG LEN = OPCSK_COMHDRSIZ™+ SBYTEORESET™ fOPCSL “hs. TEXT); 
yo} p08 Copy the request text, if any, to the new message buffer. 
£08 0638 if .BUFFER DESC CDSCSW_LENGTH] GTR .OLD_MSG_LEN 
644 0639 THEN 
645 0640 BEGIN 
646 0641 =e MSG Force REQUEST_LENGTH] = ER_DESC CDOSC$W_LENGTH] - .OLD_MSG 
eh BOs6 3 eel -NEW_ASG COPCSW_REQUEST ten THs OLD_MSG COPCSL_MS_TEXTJ, REwW_ ASG “topcst -REQUEST_TEXT)); 
649 oe 
650 0645 ! 
$3) bee$ ; Create a descriptor for the reformatted message. 
re 0648 REFORMAT DESC COSCSW_ LeneTe = OPCSK_COMHDRSIZ + OPCSK_HDR_SIZE + .NEW_MSG COPCS$W_REQUEST_LENGTH] + 2; 
654 49 REFORMAT_DESC (CDSC$B_DTYPE = 0; 
655 650 REFORMAT_DESC [CDSC$B_CLASS = 0; 
238 $2 REFORMAT_DESC CDSCSA_POINTER) = REF ORMAT_BUFFER; 
658 re : 
+45 2838 : Call the new-message handler to finish processing the message. 
661 0656 GLOBAL STATUS CGBLSTS_K_OLD ppanat -MSG] = TRUE; ! Mark this as an old format msg 
666 65 SECURITY_HANDLER (REFORMAT BES 
663 638 GLOBAL_STATUS CGBLSTS_K_OLD_ FORMAT _MSG) = FALSE; 
665 660 END; ! End of SECU_HANDLER 
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18: ~teb- 1982 9}: He OPCOM. SRC IOP PCOMOLD.B32;1 9° 6) 
.EXTRN SECURITY_HANDLER 
OOFC 0000 .ENTRY § HANDLER Save R2,R3,R4,R5,R6,R7 
55 FSF8 CE 4 ii MOVAB eee aten SP 
04 AC DO 0000 MOVL BU FFER spesc R7 
2€ 67 81 08 CMPW 3S s«(R7 
08 A 04 87 23 8 0001 MOVCS «#38, B56?) REFO ORMAT_BUFFER 0618 
O9DA = BF 0 6E 00 $e 001 #0, , #6, #2522, REFORMAT_BUFFER+38 0623 
50 04 A? of g1 001 $6 8 
56 2E AE F MOVAB T NEW_MSG 9 
66 6 90 000 MOVB (OLD maT 81 (NEW_MSG) 0 0 
01 Ag 1 90 000 MOVB #1, T(N 31 
OA A6 01 AO 1 00 EF 000 EXTZV #0, #24 TCOLD ns, olf tne¥. MSG) 0635 
12 Ab 04 Ad o9 00 MOVL 4 (OLD_M$G), 18TNE 063 
51 $f DO 0003 MOVL #46, OLD_M _. 0634 
51 67 10 00 FD 9005 CMP ZV #0, "#16,7° (R73, OLD “ASG _LEN 0638 
1A 6 67 51 As 0004 SUBW OD MSG_LEN, (R7), 26(NEW_MSG) 0641 
1c Ab 08 a0 1A AB 2 9004 MOVC 26 (REW AS SG). Abcouo MSG), 28(NEW_MSG) 0642 
6E 1A Ab 004 8F Ai 00051 1$: ADDW o5(N , REFORMAT _DESC™ ; 0648 
02 AE B4 0005 CLRW REF ORAA 0649 
04 AE 0 AE 3 0005 MOVAB REFORMAT ~BuFFER REF ORMAT_DESC+4 : 0651 
00006 CF 10 88 0006 BISB2 #16, GLOBAL_STATUS 0656 
5E DD 0006 PUSHL SP 0657 
00006 CF 01 FB 0006 CALLS SECURITY_HANDLER 
00006 CF 10 BA 0006 BICB2 +16, GLOBAL _STATUS 0658 
04 00071 2$: RET : 0660 


; Routine Size: 114 bytes. Routine Base: S$CODE$ + 0200 
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GLOBAL ROUTINE STS_HANDLER (BUFFER_DESC) : NOVALUE = | 
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La 
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~o 
eee oO 
wv | 
Scie as eee 


; 667 661 1 H 
Ps 908 1 ° 
P 1 !e4 : | 
; ero re) } : Functional description: : 
; ors e¢] 1! This routine is the handler for all STS messages received by OPCOM. | | 
; 67 67 1! This message is in the old format, and must be converted to the new S| 
; 674 O98 1: format before it can be processed. Once this is done, the new format ee 
5 of? re : message handler is called to process the reformatted request. ; 
; ef? ser 1 { Input: | : 
; re o8 1! BUFFER_DESC : The address of a emery buffer descriptor that ; 
; 680 0674 1! describes the buffer containing the message. ; 
: 8B bere | i Implicit Input £ 
3 ! Implic nput: | 
: 68 O67? 1 i ’ 5 
; 684 0678 1! None. . i 
; 685 0679 1! Sa 
; 686 0680 1 ! Output: es 
; 687 0681 1! : 
; 688 06 ; 1! None. ; 
: 890 0684 | i Implict output 
3 ! Implict output: : 
; 691 b68s 1! F r | : 
; 69 Bons 1! Some accounting data will be updated . 
; 69 0687 1! to reflect the receipt of the message. : 
; 694 0688 1! | ; 
; 695 0689 1 ! Side effects: ; 
; 0690 1! ; 
: 697 0691 1! None. | ; 
; 698 0692 1! F 
; 0693 1 ! Routine value: | ’ 
3; £ 0694 1! | 3 
; 701 0695 1! None. | F 
; 70 0696 1 !-- 3 
; 697 1 : 
3 704 698 2 BEGIN ! Start of STS_HANDLER : 
; 705 5344 : 
: 706 0700 MAP | 3 
; 707 0701 3 
; 708 708 BUF FER_DESC : $Sref_bblock; ; 
; 709 70 : 
; 710 re EXTERNAL : 
s 7 705 GLOBAL_STATUS : BITVECTOR, ! Global status flags : 
3 Ne P06 DEVICE-FAO : S$bblock; ' FAO control string : 
3; «716 708 EXTERNAL ROUTINE é 
3 oi? Aes STATUS_HANDLER =: NOVALUE; ! New format msg handler : 
; r9 at LOCAL : 
; 719 18 OLD_MSG : $Sref_bblock, ' Pointer to start of old messsge | é 
: 720 714 NEW_MSG : Sref_bblock, ! Pointer to start of new message : 
3 6a 715 OUT_LENGTH 2 “ ' Length of formatted operator device name 3 
, £ ; ay DEV_DESC : gdoec block ! Operator device name descriptor : 
3 ve 71 REFORMAT_BUFFER : $bblock OPCESK_MAXREAD], ! Buffer to hold the reformatted message : 
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Fess 


c 11 
16-Se 
14-Se 


1984 01:34:1 AX-11 Bliss-32 V4.0-742 
or} o8e 93:35:1 YOPCOM. SRC OPCOMOLD.832;1 


REFORMAT_DESC : S$desc_block; ! Descriptor for the REFORMAT_BUFFER 


i Make sure the message is big enough. If not, it 
| cannot possibly be & valid message, and OPCOM will 
simply ignore it. 


if .BUFFER_DESC CDSC$W_LENGTH] LSS (OPCSK_COMHDRSIZ + 7) 
RETURN; 


! 
Copy the commom header provided by SSNDOPR to the new buffer 


CHSMOVE (OPCSK_COMHDRSIZ, -BUFFER_DESC COSCSA_POINTER] , REFORMAT_BUFFER); 
' 


i Zero the remainder of the REFORMAT_BUFFER. 
CHSFILL (0, (OPCSK_MAXREAD = OPCSK_COMHDRSIZ), (REFORMAT_BUFFER + OPCSK_COMHDRSIZ)); 


1 
Move the old message fields into their corresponding places in the new message format. 


OLD_MSG = .BUFFER_DESC CDSCSA_POINTER] + OPCSK_COMHDRSIZ; 
NEW_MSG = REFORMAT puregr + OPC$K_COMHDRSIZ; 

NEW_MSG OPC SB RAST CODE = ,OLD MSG COPC$B_MS_TYPE); 
NEWLMSG COPCSB_SCOPEJ = OPCSK_SYSTEM; 


i Build the operator device name from the ASCIC device string 
! and the device unit number. Build the FAO OUTBUF descriptor 
to point to the correct spot within NEW_MSG to save a copy. 


DEV_DESC [0,0,32,0) = 20; 1A 

DEV-DESC COSC$A_POINTER] = .NEW_MSG + SBYTEOFFSET (OPCS$T_STATUS_OPR) + 1; 

SFAO (DEVICE_FAD, OUT_LENGTH, DEV DESC, OLD_MSG COPC$T_MS_ONAMEJ, .OLD_MSG COPCS$W_MS_OUNIT)); 
NEW_MSG CSBYTEOFFSET TOPCST_STATUS_OPRS,0,8,0) = .OUT_CENGTH; 


' 

: Create a descriptor for the reformatted message. 

REFORMAT_DESC peeee 4 every = OPCSK_COMHDRSIZ + OPCSK_HDR_SIZE + .OUT_LENGTH + 1; 
} 4 . 


DES 
REFORMAT_DESC ([DSC$B_CLASS = 0; 
REFORMAT-DESC CDSCS$A_POINTER] = REFORMAT_BUFFER; 
' 
: Call the new-message handler to finish processing the message. 
GLOBAL_STATUS [GBLSTS_K_OLD_FORMAT_MSG) = TRUE; 


STATUS-HANDLER (REFORMAT DESC); 
GLOBAL“STATUS CGBLSTS_K_OLD_FORMAT_MSG) = FALSE; 


END; ! End of STS_HANDLER 


! Mark this as an old format msg 


llow for a large device name 


row 8 


<oO 
Ra 


D 11 


16-Sep-1984 01:34:1 AX-11 Bliss-32 V4.0-742 Page 21. 
12: ohep- 138 93:35:) OPCOM. SRC IOP PCOMOLD.832;1 . Ait 
.EXTRN STATUS_HANDLER | 
007¢ ENTRY SIs HANDLER, psave R2,R3,R4,R5,RO : 0661 | 
e FE ce 9 MOVAB B0< : | 
a 4 ac D OV aur OFFER spgSc, PRé > 0725" 
g fh BLSS 8 
Bb 6 38 1 MOVCS #38, 04 (R6) 5 PEEQRMAT BUFFER : 0732 
6E = ft ¢ O16 movcS #0, (SP), 2522, REFORMAT_BUFFER+38 : 073 
A 26 C1 1F ADDL3 #38, 4(R6), OLD + 074 
5 32 AE § 86 4 MOVAB REFORMAT BOFFERT SB” NEW_MSG ; 14g 
6 6 9 00 8 MOVE (OLD_MSGY, (NEW_MSG) > 0744 
A 1 028 MOVB sof] wW’ MSG) + 0745 
AD 14 pO O02F MOVL #0 BESC + 0751 
AD 18 A2 9E 000 MOVAB é (R de Ai: V_DESC +4 : O75¢ 
7E 08 A 3¢ 990 MOVZWL 8 (OLD =(SP) : 075 
OA Ad 9F 0003C PUSHAB 10(OLB Mascs : 
FB AD OF OO003F PUSHAB DEV_DESC ; 
OC AE OF 00042 PUSHAB OUT~LENGTH ; 
0000G CF 9F 0004 PUSHAB DEVICE FAO, : 
000000006 00 05 FB 00049 CALLS SSFA ; 
1A A 6e 90 00050 VB out AtENeTn, 26(NEW_M : 
04 AE 6e 0041 8F Al 00054 ADDW3 #657 LENGTH, REFORMAT DESC : 0760 
06 AE B84 00058 CLRW REFORMAT ~beses 2° > 0761 
08 AE OC AE 3E 90056 MOVAB REFORMAT-BUFFER, REFORMAT_DESC+4 > 0763 
00006 CF 10 88 0006 BISB2 #16, GLOBAL_STATUS : 0768 
04 AE 9F 00068 PUSHAB REF ORMA T DESC : 0769 
0000G CF 01 FB ai CALLS CTATOS HANDLER 3 
00006 CF 10 8A 0007 BICB2 4 16, GLOBAC_STATUS : 0770 
04 00075 1$: RET : 0772 


; Routine Size: 118 bytes, Routine Base: S$CODE$ + 0272 
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| 
| 

; r : ak, ! GLOBAL ROUTINE TERME_HANDLER (BUFFER_DESC) : NOVALUE = | 
: 7 Q 775 1 14 | 
; f ae } ; Functional description: | 
: 785 ore 1 This routine is the handler for all TERME messages received by OPCOM. 
3 7f 779 1! This message is in the old format, and must be converted to the new 
coz 780 1! format before it can be processed. Once this is done, the new format 
: re f 1 : message handler is called to process the reformatted request. 
: £90 ! : Input | 
: 138 785 1 BUFFER_DESC : The address of a quadword buffer descriptor that 
: a? ! describes the buffer containing the message. | 
: 795 788 1! Implicit Input: 
: 796 79 ji os | 
: 79 790 1 | None. | 
; 798 791 1! 
3; 799 13¢ 1 ! Output 
; 800 144 1! 
3 et 794 1! None. 
; Bos 0796 | i Implict output 
; ! Implict ou : 
B04 roe yi im i 
; 805 798 1! Some accounting data will be updated 
; 806 799 1! to reflect the receipt of the message. 
: 807 0800 1! 
; 808 0801 1 ! Side effects: 
; 809 pee = % 
; 810 0805 1! None. 
; 6811 0804 1! 
; aig 0805 1 ! Routine value: 
; 81 St 1! 
; 6814 0807 1! None. 
; 815 0808 1 !-- 
; 816 0809 1 
; 817 0810 BEGIN ! Start of TERME_HANDLER 
; 818 pet 
; 819 0 \¢ MAP | 
; 820 +t 
3 H 1 a8 BUF FER_DESC : $ref_bblock; 
; 8 4 O86 EXTERNAL ROUTINE | 
; 8 $ Bis OPRENABLE_HANDLER : NOVALUE; ! New format message handler | 
; 836 19 2 EXTERNAL 
; 0 GLOBAL_STATUS : BITVECTOR, ' Global status flags | 
3 3 1 DEVICE_FAO : Sbblock; ! FAO control string | 
i 830 5 LOCAL | 
; 3% 5 OLD_MSG : $Sref_bblock, ! Pointer to start of old message | 
; § NEW_MSG : Sref_bblock, ! Pointer to start of new nessoge ; 
; OUT_LENGTH ° ' Length of formatted operator device name | 
; 5 3 : $desc_block ! Operator device name gece voter 
; 836 REFORMAT_BUFFER : $bblock OPCSK_MAXREADJ, ! Buffer to hold the reformatted message | 


OPC 


~w 


OPCOM. SRC JOPCOMOLD.B32;1 


11 
300-138 94:36:13 AX-11 Ol igseze V4.0-742 Page 3 
' 


LEN 
NEW_ vICESEAD, OU topes NOPRENKBLE “OpRD. 0,8 A shot a: eNGr 
' 


Create a descriptor for the reformatted message. 


PCSK_COMHDRSIZ + OPCS$K_HDR_SIZE + .OUT_LENGTH + 1; | 

DSCSB_DTYPE : | 
SCSB_CLASS] = 

DSCSA“POINTER] = REFORMAT_BUFFER: 


REFORMAT DESC 
REFORMAT_DESC 
REFORMAT _DESC 
' 

i Call the new-message handler to finish processing the message. 


REFORMAT DESC He =LENGTHJ 


vO4 

; 3 9 REFORMAT_DESC : S$desc_block; ! Descriptor for the REFORMAT_BUFFER 

4 ' 

; 840 : i Make sure the message is big enough. If not, it 

3 1 ' cannot possi + & be a valid message, and opcon wilt 

: rk 5 staply gnore 
; ¢ $ if ~BUFFER_DESC CDSCSW_LENGTH] LSS (OPCSK_COMHDRSIZ + 13) | 
; $ RETURN; | 
; 40 8 | 
; ‘3 OB, Copy the commom header provided by SSNDOPR to the new buffer 

3 3H OB CHSMOVE (OPCSK_COMHDRSIZ, .BUFFER_DESC COSCSA_POINTER] , REFORMAT_BUFFER); 

: 85 084 

; B34 O87 } Zero the remainder of the REFORMAT_BUFFER. 

; 856 0869 CHSFILL (0, (OPCSK_MAXREAD = OPCSK_COMHDRSIZ), (REFORMAT_BUFFER + OPCSK_COMHDRSIZ)); 
: 858 0851 2! 

3 83 Bae6 } Move the old message fields into their corresponding places in the new message format. 
: 861 0854 oL D_MSG = fe 7 hd 3 DESC EBSCSA geht + OPCSK_COMHDRSIZ; ' Set pointer to request text 

3 506 0855 NEW_MSG = REFORMAT BUFFER + OPC$K HORSIZ; i Set pointer to start of new message. 
; 86 0896 NEW_MSG Sear * OLD mSG OL COPC$B_MS_TYPE); i Set message type code | 
: 864 085 NEW MSG COPC$B_ SCO gece K_SYST BM i Force this to a SYSTEM enable 

; 865 +24 SbbTock CNEW_MSG Sg Q OPTIONS], OPCSV_PERMOPER] = TRUE; i Force this to a PERMANENT enable 
; 866 859 2 IF .OLD_MSG [$BYTEO FStr® topcse _MS_ENAB) ,0724,0) EQi 0 

; 867 0860 THEN 

; 868 0861 BEGIN 

: 869 Baeg Sbblock CNEW_MSG COPCS$L_RQ_OPTIONS], OPCS$V_DISABLE] = TRUE; ! This is a DISABLE Wpguese 

3 370 oae + eee NEW” MSG OPCSL_ RQ “OPTIONS), OPC$V— _PERMOPER] = FALSE: ! Clear the PERMOPR bit 
; ors NEW ASG’ COPCSL_ATTNMASK1] = .OLD_MSG COPCSL_MS_MASK]; ' Set the enable/disable mask. 

; Br 0 i Create an operator device name from the device name ASCIC 

3 875 i string and the device unit #. Just assume that FAO succeeded. 

: 7 ' Set the OUTBUF descriptor so it points to the correct spot 

3 As im NEW_MSG. This will save a copy operation. 

: 87 DEV_DESC £0.0,1 0,16,0 At Low for a large device name 

3 DEV— ait: §c$ pelntens® a oa MSG + vag hyd i Bs sonst g’onine ie’ | 
; SAD (D DEVICE_FAO, OUT DEV_DESC, OLD_MSG . “OLD SG topcsw _MS_OUNIT]); | 
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; 899 
O9DA =sOBF 
00 


3; Routine Size: 


OPRENABLE_H re 
+s GLOBAL STATUS GBL 
892 END; 
i 
oc OA 046 86 
0 6E 
50 046 =A 
5 
6 
01 3A 
06 A 
01 ad 1 
06 ne 
06 =A 
OA A 
FB AD 
FC AD 
7E 
000000006 00 
1A A 
04 AE 6E 
08 AE 
0000G CF 
it 43 CF 
000G CF 
143 bytes, Routine Base: 
0893 (1 
0894 1 END 
0895 0 ELUDOM 
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007¢ 
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32. AE 0010 
26 gt OO1F 
32 ae ‘ 0024 
60 9 B05 8 
83 90 00028 
3 88 0002F 
00 ED 00033 
08 is 00039 
01 88 00038 
02 8A 0003F 
04 AO D0 00043 
14 BO 00048 
18 A2 YE 0004C 
08 AO 3C 00051 
OA AO 9F 00055 
F8 AD YF 00058 
OC AE OF Babee 
00006 CF 9F 0005 
05 fe 0006 
E 90 0006 
0041 F Al B60 
06 AE Be 0074 
oc ag E 00077 
1 Se 4 $45 
04 AE 9F 00081 
1 FB 4 
0 wn 9 
4 0008E 


SCODES + 02E8 


; 11 


=$2p-1986 12:50:34 


STS_K_OLD_FORMAT_MSG] = TRUE; 
ER (REFORMAT-DESC); 
STS_K_OLD-FORMAT_MSG) = FALSE; 


1$: 


! End of 


-EXTRN 


! End of 
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! Mark this as an old format msg 


TERME _HANDLER 


OPRENABLE_HANDLER 
T ane. Spy Save R2,R3,R4,R5,R6 
BUFFER spe Sc, RG 


#38, a4(25), R 
#0, (SP) #6, 


E MAT_BUFF 
#2522 

#38, 4(RO), FER 
NEW_ 


ER 
, REFORMAT_BUFFER+38 


on wD 
a 


. NEW_MSG 
G) 
ae, 6(NEW MSG) 

- #24, TCOLD_MSG), 


a. (NEW msg? 
6(NEW"MSG) 
Aen D speed 10(NEW_MSG) 


is? V_DESC 
Yeabe Bev. DESC+4 
(OLD_MSG), ~-(SP) 
10(0 LB_MSGS 
v DESC 


Our” LENGTH 
bev VICE FAO 


SYSSFAO 
out -LENGTH 26(NEW_M 
#65; OUT_LENGTH, REFOSMAT _DESC 
REF ORMA Ne 
REFORMAT ~aurica REFORMAT _DESC+4 
#16 GLOBAL STATUS 
REF ORMA DESC 


OPRERABLE HANDLER 
Ate GLOBAL_STATUS 


#0 


OPCOMOLD 


H 11 
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v04-000 14-Sep-19 OPCOM.SRCJOPCOMOLD.B32;1 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 887 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


ounes aes SyYERO(§ eocee=o Pages Processing 
File Total idaded Percent Mapped Time 
SDUA SYSLIBJLIB.L32;1 18619 0 100 00:01.9 
HE ths OPCOM.0BJJOPCOMLIB. L32;1 633 3? 5 8 00:00.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:OPCOMOLD/OBJ=OBJ$:OPCOMOLD MSRC$:OPCOMOLD/UPDATE=(ENH$:OPCOMOLD) 
Size: an e + 0 data bytes 
un Time: :2e. 
Elapsed Time: Ait . 
Lexenes/CPU-Rin: 2 338 
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